home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / SystemCode / wordCompletion.tcl < prev   
Encoding:
Text File  |  1994-04-27  |  2.5 KB  |  82 lines  |  [TEXT/ALFA]
  1. #===========================================================================
  2. # 'Word Completion, in the spirit of Paul van Mulbregt's BBXT.
  3. # 
  4. # Composed by Mark Nagata (nagata@kurims.kyoto-u.ac.jp) 
  5. # for Alpha 5.76, 4/22/94.
  6. # 
  7. #================================================================================
  8.  
  9. proc wordCompletion {} {
  10.     set pos [getPos]
  11.     backwardWord
  12.     set start [getPos]
  13.     set one [getText $start $pos]
  14.     set len [expr $pos-$start]
  15.     set pat [append one {[a-zA-Z0-9_]+}]
  16.     set start [expr $start-1]
  17.     if {![catch {search -f 0 -r 1 -i 0 -m 1 -- $pat $start} data]} {
  18.         set beg [expr [lindex $data 0]+$len]
  19.         set end [lindex $data 1]
  20.         set txt [getText $beg $end]
  21.         goto $pos
  22.         insertText $txt
  23.         message "found above."
  24.         return
  25.     }
  26.     if {![catch {search -f 1 -r 1 -i 0 -m 1 -- $pat $pos} data]} {
  27.         set beg [expr [lindex $data 0]+$len]
  28.         set end [lindex $data 1]
  29.         set txt [getText $beg $end]
  30.         goto $pos
  31.         insertText $txt
  32.         message "found below."
  33.         return
  34.     }
  35.     goto $pos
  36.     backwardWordSelect
  37. }
  38.  
  39. bind  F1     wordCompletion 
  40.  
  41.  
  42. # This is all due to the idea of Paul van Mulbregt. In his documentation 
  43. # of his BBEdit BBExtension (info-mac/text/bbedit-fl-package-11.hqx), 
  44. # he explains:
  45. # 
  46. # --  From the documentation written by        --
  47. # --  Paul van Mulbregt (paulvm@dragonsys.com) --
  48. # 
  49. # Word Completion
  50. # 
  51. # This extension saves typing, as well as making sure variable names are 
  52. # correct.  While typing the following C code, there is no need to type all 
  53. # of the second occurrence of verySpecialInt.  One could copy and paste, but 
  54. # another way is to type a few letters, and select the Word Completion 
  55. # Extension.
  56. # 
  57. #     int verySpecialInt = 10;
  58. #     while(verySp                                                    
  59. # 
  60. # 
  61. # becomes
  62. # 
  63. #     int verySpecialInt = 10;
  64. #     while(verySpecialInt                                             
  65. # 
  66. #                                                     
  67. # 
  68. # Word Completion will look back in the code to find the first match and then 
  69. # extend the current occurrence to match the previous occurrence.  If a match 
  70. # is not found looking backwards, then it looks forwards.  If not found 
  71. # forwards, the word is selected.  This is a quick way to save on typing, 
  72. # good for helping prevent RSI, but perhaps more importantly, to make sure 
  73. # that variable names are spelt correctly.
  74. # 
  75. # There is no user interface for Word Completion.
  76. # 
  77. # The usefulness of this extension is greatly enhanced if the extension is 
  78. # bound to a key!
  79. # 
  80. # -- end of Paul van Mulbregt's explanation. --
  81.  
  82.